object mapagoogle_frm: Tmapagoogle_frm
  Left = 117
  Top = 28
  HorzScrollBar.Increment = 103
  HorzScrollBar.Visible = False
  VertScrollBar.Increment = 58
  VertScrollBar.Visible = False
  ActiveControl = WebBrowser1
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Consulta Mapa - Endere'#231'o - Google Mapas'
  ClientHeight = 655
  ClientWidth = 1145
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object WebBrowser1: TWebBrowser
    Left = 0
    Top = 207
    Width = 1145
    Height = 448
    Align = alClient
    TabOrder = 0
    OnDocumentComplete = WebBrowser1DocumentComplete
    ControlData = {
      4C000000577600004D2E00000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object PanelHeader: TPanel
    Left = 0
    Top = 41
    Width = 1145
    Height = 166
    Align = alTop
    TabOrder = 1
    object LabelAddress: TLabel
      Left = 39
      Top = 8
      Width = 37
      Height = 13
      Caption = 'N'#250'mero'
    end
    object Label1: TLabel
      Left = 80
      Top = 8
      Width = 122
      Height = 13
      Caption = 'Tipo (Rua, Avenida, etc.)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 295
      Top = 8
      Width = 33
      Height = 13
      Caption = 'Estado'
    end
    object Label3: TLabel
      Left = 207
      Top = 8
      Width = 45
      Height = 13
      Caption = 'Endere'#231'o'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 257
      Top = 8
      Width = 33
      Height = 13
      Caption = 'Cidade'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 38
      Top = 97
      Width = 265
      Height = 65
      Alignment = taCenter
      Caption = 
        'Informar o endere'#231'o para pesquisa no seguinte layout:'#13#10'N'#250'mero Ti' +
        'po Endere'#231'o, Cidade Estado'#13#10'O n'#250'mero e o estado n'#227'o s'#227'o obrigat'#243 +
        'rios.'#13#10'Exemplo:'#13#10'161 RUA MACHADO, GUAXUPE MG'
    end
    object MemoAddress: TMemo
      Left = 38
      Top = 27
      Width = 923
      Height = 67
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      Lines.Strings = (
        'GUAXUPE MG')
      ParentFont = False
      ScrollBars = ssBoth
      TabOrder = 0
      OnKeyPress = MemoAddressKeyPress
    end
    object ButtonGotoAddress: TButton
      Left = 1005
      Top = 27
      Width = 99
      Height = 40
      Caption = 'Busca Endere'#231'o'
      TabOrder = 1
      OnClick = ButtonGotoAddressClick
    end
    object ButtonClearMarkers: TButton
      Left = 1005
      Top = 69
      Width = 99
      Height = 25
      Caption = 'Limpa Marcas'
      TabOrder = 2
      OnClick = ButtonClearMarkersClick
    end
  end
  object PanelAviso: TPanel
    Left = 0
    Top = 0
    Width = 1145
    Height = 41
    Align = alTop
    Caption = 
      'PARA O FUNCIONAMENTO DESTE RECURSO '#201' NECESS'#193'RIA A CONEX'#195'O COM IN' +
      'TERNET'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'Arial Black'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    Visible = False
  end
  object IBQGoogleMapas: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQGoogleMapasAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'SELECT CAST(A.NUMERO AS VARCHAR(5))||'#39' '#39'||C.DESCRICAO||'#39' '#39'||A.EN' +
        'DERECO||'#39', '#39'||B.CIDADE||'#39' '#39'||B.ESTADO AS ENDERECO FROM DOMICILIO' +
        ' A, PARAMETROS B JOIN TIPOENDERECO C ON C.IDTIPOENDERECO = A.IDT' +
        'IPO WHERE A.IDDOMICILIO = :DOMICILIO')
    Left = 1112
    Top = 213
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DOMICILIO'
        ParamType = ptInput
        Value = '0'
      end>
    object IBQGoogleMapasENDERECO: TIBStringField
      FieldName = 'ENDERECO'
      Size = 145
    end
  end
  object dsGoogleMapas: TDataSource
    AutoEdit = False
    DataSet = IBQGoogleMapas
    Left = 1112
    Top = 245
  end
end
